home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / lockco1a / frmlock.frm (.txt) next >
Visual Basic Form  |  1999-09-19  |  4KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.Form frmLock 
  3.    BackColor       =   &H80000001&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   4620
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   7035
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Moveable        =   0   'False
  15.    ScaleHeight     =   4620
  16.    ScaleWidth      =   7035
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.PictureBox picDialog 
  21.       BackColor       =   &H00C0C0C0&
  22.       BorderStyle     =   0  'None
  23.       Height          =   1815
  24.       Left            =   720
  25.       ScaleHeight     =   1815
  26.       ScaleWidth      =   4095
  27.       TabIndex        =   0
  28.       Top             =   240
  29.       Width           =   4095
  30.       Begin VB.CommandButton cmdOk 
  31.          Caption         =   "&Ok"
  32.          Height          =   615
  33.          Left            =   1200
  34.          TabIndex        =   3
  35.          Top             =   1080
  36.          Width           =   1695
  37.       End
  38.       Begin VB.TextBox txtPass 
  39.          Height          =   360
  40.          IMEMode         =   3  'DISABLE
  41.          Left            =   120
  42.          PasswordChar    =   "*"
  43.          TabIndex        =   2
  44.          Top             =   600
  45.          Width           =   3855
  46.       End
  47.       Begin VB.Timer tmrLockedFlash 
  48.          Interval        =   500
  49.          Left            =   0
  50.          Top             =   0
  51.       End
  52.       Begin VB.Label lblLocked 
  53.          Alignment       =   2  'Center
  54.          BackColor       =   &H00C0C0C0&
  55.          Caption         =   "COMPUTER LOCKED"
  56.          BeginProperty Font 
  57.             Name            =   "Arial Black"
  58.             Size            =   14.25
  59.             Charset         =   0
  60.             Weight          =   700
  61.             Underline       =   0   'False
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          Height          =   375
  66.          Left            =   120
  67.          TabIndex        =   1
  68.          Top             =   120
  69.          Width           =   3855
  70.       End
  71.       Begin VB.Image imgFake3D 
  72.          Height          =   1815
  73.          Left            =   0
  74.          Picture         =   "frmLock.frx":0000
  75.          Stretch         =   -1  'True
  76.          Top             =   0
  77.          Width           =   4095
  78.       End
  79.    End
  80. Attribute VB_Name = "frmLock"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. 'required for disabling keys
  86. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  87. Private Const SPI_SCREENSAVERRUNNING = 97
  88. Private Sub cmdOk_Click()
  89. 'check if password is correct
  90. If txtPass.Text = frmPass.txtPass(0).Text Then
  91.  'if correct password, exit
  92.  'unload forms from memory
  93.  Unload frmLock
  94.  Unload frmPass
  95.  'end program
  96. End If
  97. End Sub
  98. Private Sub Form_Load()
  99. 'place the unlock  dialog half way across screen,
  100. 'a third of the way down
  101. picDialog.Top = (Screen.Height - picDialog.Height) / 3
  102. picDialog.Left = (Screen.Width - picDialog.Width) / 2
  103. 'trick computer into thinking a passworded screensaver
  104. 'is running - disables Alt+Tab, Ctrl-Alt-Del, Win9x keys
  105. 'etc.
  106. Dim Ret  As Long
  107. Dim pOld As Boolean
  108. Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
  109. End Sub
  110. Private Sub Form_Unload(Cancel As Integer)
  111. 'when program closes, re-enable keys
  112. Dim Ret  As Long
  113. Dim pOld As Boolean
  114. Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
  115. End Sub
  116. Private Sub tmrLockedFlash_Timer()
  117. 'if colour is red, change to black
  118. If lblLocked.ForeColor = &HFF& Then
  119.  lblLocked.ForeColor = &H80000012
  120.  'exit sub (if reaches next if, it will change back)
  121.  Exit Sub
  122. End If
  123. 'if colour is black, change to red
  124. If lblLocked.ForeColor = &H80000012 Then
  125.  lblLocked.ForeColor = &HFF&
  126.  Exit Sub
  127. End If
  128. End Sub
  129.